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aus EERO counters module’ 
DULE NALSZERO 
LANGUAGE (BLISS32) . 
ADDRESSING MODE (EXTERNAL =GENERAL) 
SRESSING-MODE (NONEXTERNAL=GENERAL) , 


IDENT = 'v04-000 
= 
BEGIN 


LOR ARAARAARAEAAREAEEE ARERR ARREARS RAE E AAA AAA AAA AAEEAAAEREAAARARAATAARAEES 


'@ 

'‘ COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

'w DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. 
'w ALL RIGHTS RESERVED. 


ie THIS SOFTWARE IS gt ope UNDER A LICENSE AND MAY BE USED AND COPIED 
t® ONLY IN ACCORDANCE WITH THE ren OF SUCH a H 
Vv NOTICE. dt SOF 


ie THE gt pe IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
: se eokat ihn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


is DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
te SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


® 
® 
® 
® 
® 
th 
© 
® 
® 
' * 
ie TRANSFERRED. * 
® 
te 
te 
® 
® 
® 
® 
® 
® 
® 


Vee RRR ERA AREA AAA AARAEA AAA AERAA AAA A AEA AERA AAAEAAAAEAAEAAKAEEEERES 
‘ 


lee 
FACILITY: 
i ABSTRACT: 


DECnet-VAX Network Management Listener 


These routines return volatile data base information in response to 
an NCP ZERC command message. 


i ENVIRONMENT: VAX/VMS Operating System 

i AUTHOR: Kathy Perko 

i CREATION DATE: 30-Aug-1982 

i MODIFIED BY: 

i v03-003 mKPOO03 Kathy ~Jan-1983 


erko 6 
Add dummy table entry — X25 Access Module entity. 


v03-002 mKP0002 Kathy Perko 24-June-1983 
Add dummy table entries for Service Adjacency entity and 
NI Configurator entity. 


v03-001 MKPO001 Kathy Perko 9-0ct-1982 


' 
' 
' 
J 
' 
' 
' 
' 
' 
' 
' 
' 
t 
a 
' 
' 
' 
J 
‘ 
' 
: Add Area entity, and "null entries for adjacent node 
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ZSBITL ‘Declarations’ 


GOoooooooooooO 
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0081 
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; TABLE OF CONTENTS: 


FORWARD ROUTINE 
NMLS$ZERO 


: NOVALUE, 
NML_CALL_ZERO : NOVALUE, 
NML“CALL-ZERO_NODE : NOVALUE, 
NML~ZEROPLURAC : NOVALUE, 

=7ERO_KNOWN : NOVALUE, 
NML~ZERORNONODES NOVALUE ; 
NML~ZERO_ENTITY : NOVALUE, 
NML~ZERO-NODE : NOVALUE, 
NML~ZEROREMOTES : NOVALUE; 


! INCLUDE FILES: 


LIBRARY "LIBS:NMLLIB.L32';: 

LIBRARY ‘SHRLIB$:NMALIBRY.L32°: 
LIBRARY "SYSSLIBRARY:STARLET.L32'; 
! 


i OWN STORAGE: 


OWN 
NMLST_P2BUFFER : VECTOR CNMLSK_P2BUFLEN]; 
NML$Q_P2BFDSC = UPLIT (NMLSK_P2BUFLEN, NML$T_P2BUFFER) : DESCRIPTOR; 


NMLS$T_ENTBUFFER : VECTOR 
NMLSQ"ENTBFDSC : DESCRIP 
INITIAL (0, NMLST_ENTBUFFER); 


: EXTERNAL REFERENCES: 


SNML_EXTDEF ; 


EXTERNAL ROUTINE 
LIBSESTABLISH : ADDRES 
: ADDRE 
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; 33 118 #1 NMLSSEND; 
; 128 119 1 
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2 120 ! . 
3 } g a 1 } Macro to build dispatch table for an entity. ; 
s ie 61 : 1 MACRO $TAB (TAB, ; 
3s 1 0124 1 DISPATCH_ RTN, : 
; : 4 e 3 5 : ZERO_RTN, ZERO_KNO_RTN) = : 
: 129 M 61 5 1 OWN TAB : ote CXLENGTH * 4] INITIAL ( ‘ 
; 130 M0128 1 SPIC (DISPA rn H_RTN, TAB), ° 
; 13 M0129 1 $SPIC (ZERO ), ; 
. ; ™ 0130 1 $SPIC (ZERO SRN. RTN, TAB) ) : 
3; 3 8 7 ey ° 
3: 156 1 § 1 . 
. -3ae M01 1 $PIC (ADDR,TAB) = : 
> 136 M0134 1 ZIF ZIDENTICAL (ADDR, 0) ‘ 
Yar M0135 1 ZTHEN ‘ 
s 133 M0136 1 ZELSE LONG (%NAME (ADDR) = ZNAME (TAB)) ‘ 
s i ™ 0137 1 ZF I ‘ 
; 140 0138 «#1 %; ‘ 
; 6141 0139 1 ‘ 
3; 142 0140 1 : 
5 343 0141 1! : 
s 1646 Bias 1 ! Dispatch tables. There is one table for each internal NML entity (NML ; 
; 145 0145 1! internal entities are broken down more that NICE entities). The table ‘ 
: 146 0144 1! apect ties the sol teytng information about the entity: ‘ 
s 147 0145 1! The address of the dispatch routine in this aadule for the entity. : 
; 148 0146 1! The dispatch rove nee vary oe depending on the different ‘ 
: 149 0147 1! formats the entities can hav ‘ 
s 150 0148 1! The addresses of the routines which sortera the requested change: : 
s 151 0149 1! - Zero single entity ‘ 
3; 32 0150 1! - lero known entities ‘ 
s 333 0151 1! : 
s 136 P 8126 1 STAB (LINE_TAB ! NMLSC_LINE : 
> 155 P0153 1 NML_CACL_ZERO : 
: 136 0154 NML~ZERO_ -intity, NML_ZERO_KNOWN) ; : 
; 138 0156 1 BIND LOGGING_TAB = UPLIT (0); ‘ 
3; «159 0157 1 ; 
: 160 0158 1 BIND SINK_TAB = UPLIT (0); ‘ 
3: 161 0159 1 . 
: 162 P 0160 1 STAB Be ! NMLSC_NODE : 
> 163 P0161 1 L_CACL_ Mp ERO _NODE, ; 
3 196 8168 : NAL ~ZERO_NODE, NML_ZEROKNONODES) ; ° 
; 166 P 0164 1 $TAB (NODEBYNAME_TAB, ! NMLS$C_NODEBYNAME : 
s 167 P0165 1 NML_CALL_ZERO_NODE : 
: 198 8198 ’ NML-ZER ROW “NODE; ” NML_ZERCKNOMODES) ; ‘ 
3 10 B88 ! BIND LOOPNODE_TAB = UPLIT (0); 

i 1% nn | BIND ADJACENT_NODE_TAB = UPLIT (0); 

3 «174 f 76 1 $TAB (EXECUTOR TAB, ! NMLSC_EXECUTOR 

3 175 P0173 1 L_CALL_ZERO_ NODE, 

: 176 Wr ! NAL “ZERO_NODE; NML_ZEROKNONODES) ; 

3; «178 0176 1 BIND OBJECT_TAB = UPLIT (0); 
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STAB (CIRCUIT_TAB, ! NMLSC_CIRCUIT 
NML_CALL_ZERO 
NMLIZERO-ENTIfY, |= NML_ZERO_KNOWN); 

BIND CIRCUIT_ADJACENT_TAB = UPLIT (0); 

BIND CIRCUIT_ADJ_SRV_TAB = UPLIT (0); 

BIND AREA_TAB = UPLIT (0); 

BIND X25_ACCESS_TAB = UPLIT (0); 

BIND PROT_NET_TAB = UPLIT (0); 

STAB (PROT_DTE_TAB, ! NML$C_PROT_DTE 
NML_CACL_ZERO 
NMLIZERO_ENTITY, | NML_ZERO_KNOWN); 

BIND PROT_GRP_TAB = UPLIT (0); 

STAB (X25_SERV_TAB, ! NML$C_X25_SERV 
NML_CALL_ZERO 
NML“ZERO-ENTITY, 0); 

BIND X25_SERV_DEST_TAB = UPLIT (0); 

BIND TRACE_TAB = UPLIT (0); 

BIND TRACEPNT_TAB = UPLIT (0); 

STAB (X29_SERV_TAB, ! NML$C_X29_SERV 
NML_CALL_ZERO 
NML“ZERO-ENTITY, 0); 

BIND X29_SERV_DEST_TAB = UPLIT (0); 

BIND NI_CONFIG_TAB = UPLIT (0); 

BIND LINK_TAB = UPLIT (0); 


i Table table. Contains pointers to Dispatch tables for NML entities. 
Indexed by NMLSC_entity definitions. 


OWN TABLE_TAB : VECTOR CNMLSC_MAXENTITY] INITIAL ( 
C (LIN TAB) 
OGGING faB, TABCE_TAB), 


TABLE. TAB), 
UTOR” TAB, TABLE_TAB) 
CT_TAB, TABLE_ TAB) 
UIT_TAB, TABLE_TABS, 


0B 
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NMLSZERO NML_ZERO counters module 1b-se $1984 00:41:1 VAX-11 Bliss-32 V4.0-74 Page 8) 
vOe 000 NMLSZERO Zero counters main routine 14-Sep-19 4 99:80:38 DLEKSVMGHASTERSCNML SRCINMLZERO.B32: 1 . (4) | 
H 2 0249 1 ZSBTTL "NML$ZERO Zero counters main routine’ | ‘ 
H i 0 29 : GLOBAL ROUTINE NMLSZERO : NOVALUE = ° 
; 55 6 26 1 tee : 
; 28 8 27 : : FUNCTIONAL DESCRIPTION: : 
; 258 8 > ae This routine dispatches the zero function to the proper routine ‘ 
; 259 28 . 5 according to the entity type. : 
; 260 0257 1! : 
; 2 8 28 : IMPLICIT INPUTS: ; 
$ 8 8 60 1! NML$GB_OPTIONS contains the Opt ton byte parsed from the NICE message. ; 
> 264 a 2s NMLSGB_ENTITY_CODE contains the entity code. : 
; 265 0 $6 , i : 
; 266 0263 1 !-- : 
; 267 0264 1 F 
; 268 0265 BEGIN 3 
> 269 0266 ; 
3; er 0267 MAP 3 
: 271 0268 2 NML$GB_ENTITY_FORMAT : BYTE SIGNED, ; 
; sie 0269 NML$GB_OPTIONS : BBLOCK (1); . 
3 af 0270 ; 
: 274 0271 LOCAL 3 
s es Osis 2 ZERO_TABLE : REF BSLOCK, ! Dispatch table reference : 
: 276 027 § RTN_ADDR ! Temporary routine address : 
; 277 0274 PARSE_TAB, ! Address of NICE message parsing ; 
: 278 0275 2 { table. ; 
3; «er? 0276 2 ZERO_RTN; ! Address of routine to perform ; 
: 280 0277 2 ' zero requested by NICE . 
; 281 0278 ! message. : 
3 see 0279 3 
; 283 0280 : 
3; 284 0281 ! 3 
; 285 OSe¢ ! Get address of entity's dispatch table. The addresses are stored as offsets : 
; 4] OSez } to make NMLSHR PIC. Change the offset into a useable address. 
; 288 0285 2 ZERO_TABLE = .TABLE_TAB C.NMLSGL_NML_ENTITY] + TABLE_TAB; 
3 $88 geae IF “ZERO TABLE NEQA~0 THEN 
; 291 0288 RTNADDR = .ZERO_TABLE CZERSL_DISPATCH] + .ZERO_TABLE; 
; $95 0290 ! Go to dispatch table for the entity specified in the NICE message. 
: 294 0291 ! Get the address of the routine which performs the type of change 
: $32 8538 ' requested. 
; 296 9 : 
; 297 0294 IF .RTN_ADDR NEQA .ZERO_TABLE THEN 
: 298 5944 4 BEGIN 
; 299 0296 4 ‘ } 
: 300 OS05 4 ! Each function's portion of the entity's dispatch table contains 
; 301 0298 4 ' the addresses of two zero routines. These routines do the 
3 4 5444 4 ! ponlowing: 
; 0300 4 ! - Zero a single entity 
; Be tt ? - lero known entities 
; 06 $308 & IF .NML$GB_ENTITY_ FORMAT Se NMASC_ENT_KNO THEN 
; 307 0304 4 ZERO_RTN = .ZERO_TABLE CZERSL_RNOWN) 
; 5308 0305 4 

| 

| 

J 


————— 
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v04- NMLSZERO Zero counters main routine 132808- 1882 90:80:58 DISKSVMGMASTERSENML SRCINMLZERO.B32;1° 9° > 
: 0 oF ? ZERO_RTN = .ZERO_TABLE CZERSL_ENTITYI; 
: 11 8 4 i The routine addresses are stored as offsets (to make NMLSHR PIC). 
: \¢ % ? Make the offset into a callable routine address. 
: 314 11 4 if .ZERO_RTN NEQ 0 THEN 
3s 3515 \§ BEGIN a ee 
: 18 0 1 ZERO_RTN = .ZERO_RTN + .ZERO_TABLE; 
; 8 0 13 i Call change routine. 
3 0 8 17 
3 1 16 RTN) 
3 ¢ 0319 5 END 
3 83 0 4 ELSE 
: 324 1 4 NMLSERROR_1 (NMASC_STS_FUN); 
: 5 03 ; 4 
; $6 8 4 ; ELSE aL SERROR 1 (NMASC_STS_FUN) 
: 328 0358 D “ ee ae 
3 $3 0326 § ELSE 
; 330 0307 NMLSERROR_1 (NMASC_STS_FUN); 
$ 31 0328 1 END; ' End of NMLSZERO 


-TITLE NMLSZERO NML ZERO counters module 
-IDENT \v04-000\ 


' 
(.RTN_ADDR) (.NMLSGL_NML_ENTITY, 
.ZERO_RTN) ; 
-PSECT $PLITS,NOWRT,NOEXE,2 


00000068 00000 P.AAA: .LONG 104 3 
00000000" 00004 «ADDRESS NMLS$T_P2BUFFER : 
00000000 00008 P.AAB: .LONG 0 : 
aaa 4 OOO0C P.AAC: .LONG 0 3 
0000000 00010 P.AAD: .LONG 0 3 

00000000 00014 P.AAE: .LONG 0 3 
00000000 Bogie P.AAF: .LONG 0 ; 
00000000 O001C P.AAG: .LONG 0 ; 
aa Be? P.AAH: .LONG 0 : 
000000 C024 P.AAI: .LONG 0 ; 

aaa 0028 P.AAJ: .LONG 0 : 
444 O002C P.AAK: .LONG 0 3 

000000 00030 P.AAL: .LONG 0 3 
8 0 4 P.AAM: .LONG 8 : 

038 P.AAN: .LONG 3 

000000 4 C P.AAO: .LONG 8 é 

BP 000 040 P.AAP: .LONG : 

0000000 ines P.AAQ: .LONG 8 3 

0000000 00048 P.AAR: .LO 3 


.PSECT SOWNS,NOEXE,2 

00000 NML$T_P2BUFFER: 

001A0 NAL ST _ENTBUF FER: 

00000000 00220 NML$Q_ENTBFDSC: 
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0000000 90888 
0000000V $e 


00000000v 00 

4 41444 Vv 00 i 
000000v 0024 

8 4h 

00000000v 48 
00000000v 00 af 
00000000v 3 2? 
00000000v 00258 
00000000Vv 6° 5¢ 
00000000v 00260 
82 64 
00000000v 00268 
00000000Vv O0g6e 
00000000v 00270 
tt 

00000000v 00278 
00000900Vv poers 
00000000v 00280 
Onsen 

00000000v 00288 
00000000v 0028¢ 
00000000 00290 
00294 

00000000v 00298 
00000000v 0029C 
00000000 002A0 
88 AG 

00000000* 002A8 
0000000* 8 AC 
000* BO 
000000" 00284 
SSS: Su 
t Bf 

0 sd C 

* C4 
* c8 

* C 

e Dd 

* 04 
t 68 

e bc 
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G 6 60 
-ADDRESS NMLST_ENTBUFFER 


<NML_CALL_ZERO=LINE_TAB> 
<NML~ZERO_ENTITY=LIRE_TAB> 
cm ~ZERO_KNOWN=L INE_TAB> 


a -CALL_ZERO_ oer thee _TAB> 
L-ZERO-NODE=NO 
<NML ~SERORNONODES-NODE *TAB> 


. CALL_ZERO_ Peeowenss tone ~TAB> 
L-ZERO-NODE=NODEBYNAME _TAB> 
cna —ZERORNONODE S-NODEBYNAME _TAB> 


<NML_CALL_ZERO_NODE-EXECUTOR_TAB> 
<NML~ ZERO NODE=EXECUTOR_TAB> 
on. ~ZERORNONODE S-EXECUTOR_TAB> 


<NML _CALL_ZERO-CIRCUIT_TAB> 
<NML_ZERO_ENTITY=CIRCUTT_TAB> 
gn. ~ZERO_ KNOWN-CIRCUIT_TAB> 


<NML_CALL_ZERO-PROT_DTE_TAB> 
<NML~ZERO_ENTITY-PROT_DTE_TAB> 
sna ~ZERO_KNOWN-PROT_BTE_TAB> 


<NML_CALL_ZERO-X25 gee TAB> 
on. ZERO_ENTITY-X25_SERV_TAB> 
4 

<NML_CALL_ZERO-X29_SERV_TAB> 
on. ZERO_ENTITY=-X29_SERV_TAB> 
4 


<NODE” TAB-TABLE~ TAB> 
<NODEBYNAME TAG TAaLE TAB> 


<EXECUTOR™TAB-T 23 
<OBJECT TAB-TABLE TAB> 
<CIRCUIT_TAB-TABLE_T 

<CIRCUIT “ADJACENT TABCTABLE_TAB> 
<CIRCUIT“ADJ_SRV_TAB-TABLE_TAB> 
AREA TAB-TABLE_TAB> 
<x25_ACCESS_TAB=TABLE_TAB> 


se 


~-O j 
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NMLSZERO NML ZERO counters module 16-Sep-1 VAX-11 Bliss: 32 V ge 
v04- NMLSZERO Zero counters main routine 18-888 Sep-19 3B 99°35 3g DISKSVMSMASTER: CNM OFAC INMLZERO. B32; " 
* 002E0 «LONG <PROT_NET_TAB-TABLE_TAB> s 
* E4 «LONG <PROT_DTE-TAB-TABLE_ tt : 
* E8 LONG a GRP_TAB-TABLE_T 5 
t ee . LONG a _SERV_TAB-TABLE_ TAB> : 
e F -LONG <X25"-SERV-DEST TABHTABLE. TAB> 3 
0 * F4 LONG <TRATE_TAB-TABLE_TAB> : 
0 e F8 . LONG TRACEPNT. TABCTABL LE. i : 
0000000* O02FC «LONG <X29_SERV_TAB-TABLE_TAB> : 
44548 * 8 4 «LONG <X29°SERV-DEST | TAB-TABLE TAB> 3 
0 it 4 LONG <NI_ CONFIG _TAB=TABLE_TABS : 
00000000* 00308 «LONG <LIRK_ TAB-TABLE. 1 TAB>~ 3 
030C -BLKB 4 
NML$Q_P2BFDSC= P.AAA 
LOGGING _TAB= P.AAB 
SINK K_TAB= P.AAC 
LOOPRODE_TAB= P.AAD 


ADJACENT NODE _ TAB= P.AAE 

OBJECT _T 

CIRCUIT LADJACENT_ TAB= 6 

By} ADJ _SRV_TAB= P.AAH 
TAB= P.AAI 


Ke ACCESS TAB= P.AAJ 
PROT NET Te: P.AAK 
PROT GRP_T P.AAL 

x25_SERV- DEST. TAB= P.AAM 

TRACE TAB= P.AAN 

TRACEPNT_TAB= P.AAO 

X29_SERV-DEST_TAB= P.AAP 

NI CONE 16_TABS PAA 


-EXTRN Ne SeU-EVTEL acs 

-EXTRN NMLSGB~EVTMSKTYP 

-EXTRN NMLS$GQ~EVTMSKDSC 

-EXTRN NMLSGW-EVTSNKADR 

-EXTRN NMLSGW-ACP_CH 

-EXTRN NMLSGL-LOGMASK, NML$GQ_ENTSTRDSC 
“EXTRN NMLSAB-GIOBUFFER 
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NAL AB ew. it $i AB_PRMSEM 
~EXTRN NAL SAB “RECBUF AL_ENTINF TAB 


RD 


; Routine Size: 


NAL 


51 
53 


79 bytes, 


ERO counters module 
NMLSZERO Zero counters main routine 


001C 00 

54 00000000" 00 0 | 00 
52 000000006 00 b0 00 
50 64 9E 00 
50 6442 C1 00 
gh 13 00 

61 1 C1 00 
51 3 01 00 
4 13 00 

FF 8F 000000006 00 91 00 
06 12 00 

50 08 Ail 00 00 
04 11 00 

50 04 Al 0 00 
0B 13 00 

50 51 CO 00 
50 0D 00 

52 DD 00 

63 02 FB 00 
04 00 

43 4 CE 00 
000000006 0 1 FB 00 
04 00 


Routine Base: 


SCODES + 0000 


SOOSOCOCOCOCOCOOCOSCOOOoOoOooOooOooOo 


BEEF PANINI ANNI Ss Se 


oo 
MAIS WOMO ONO WWM > wWnosre 


4 
-Sep-1984 
~3ep-19 4 


N— 


3$: 


PW 


72:30:28 


VAX-11 Bliss-32 V4.0-74 
DISKSVM 


§ 
FTAB 
S$, NML$GB_CMD_VER 
“FORMAT 
L$GB_OPTIONS 


- NMLSGL_PRS_FLGS 
NML_ENTITY 


$GQ"R 
$GW~PRMDESCNT 
SESTABLISH, LIBSREVERT 
$BLD_REPLY. NMLS$BLDP2 
NMLSERROR 1, NMLSERROR 2 
NMLSGETEXEIO, NMLSGETINF TABS 
NMLSGET_ ENTITY IDS 

NML SMAIRHANDLE 

NMLSNETQIO, NMLSSEND 
SCODES,NOWRT,2 

NMLSZERO, Save R2,R3,R4 

TABLE _TAB, R4 
NMLSGC_NML_ENTITY, R2 
TABLE_TAB 

TABLE~TABLR2J, RO, ZERO_TABLE 


2ERO_TABLE, (ZERO. TABLE), RTN_ADDR 
RIN ADDR, ZERO_TABLE 


NMLSGB_ENTITY_FORMAT, #1 

§(ZERO_TABLE). ZERO_RTN 

4(ZERO_TABLE), ZERO_RTN 

ZERO_TABLE, ZERO_RTN 
ROTRTN 


#2, (RTN_ADDR) 


#1, -(SP) 
#1. NMLSERROR_1 


MASTER: CNML. SRC JNMLZERO.B32; 


Page 
1 9 


ters module 


‘3 
55 
2 
e3 


H 4 
n 16-Sep-1984 00:41:1 VAX-11 Bliss-32 V4.0-74 P 1 
0 Zero volatile entity parameters 1 ~3ep-19 4 99780 :38 DLSKSVMGHASTERSENML  SRCINMLZERO.B32; 10°" (5 
T 
] 


Om 
ro 

mee t 
£3 ~O 
o mo 
—— we 


0000 00000 NML_CALL_ZERO: 
WORD 


L 

Le 
; 3 2 1 L_"NML_CALL_ZERO Zero volatile entity parameters’ ; 
; ¢ : : NE NML_CALL_ZERO (ENTITY, ZERO_RTN): NOVALUE = ‘ 
: 1 'e¢ : 
; § : FUNCTIONAL DESCRIPTION: ; 
; > 2% This routine dispatches to a routine to zero the specified : 
3 ? $ : } set of circuit counters based on the entity id format. : 
; g 8 1 ! FORMAL INPUTS: : 
3 ee 2 ENTITY Internax NML entity code of entity to zero. ‘ 
3 4 8 40 1! ZERO_RTN Address of routine to perform zero requested ‘ 
3 5 41 1! by NICE message. ° 
3 7 0 ts 1! ‘ 
; » 0345 1 =! IMPLICIT INPUTS: : 
; 348 0344 1! : 
; rH 8 a2 : } NMLSGB_ENTITY_FORMAT contains the entity format code. ‘ 
3 51 O34? 1 !-- ’ 
; 2g 0348 1 : 
; i 0349 BEGIN ; 
3; 354 0350 : 
3 399 B32) MAP . 
3 2$ b32¢ NML$GB_ENTITY_FORMAT : BYTE SIGNED; ‘ 
3 4 BR2e SELECTONEU -NML$GB_ENTITY_FORMAT OF : 
; 360 9228 CNMASC_ENT_KNO]: ' Known . 
; 361 035 NMC_ZEROPLURAL (.ENTITY ! Entity code : 
; 62 0358 ~ZERO_RIN, i Zero routine : 
3 sti o328 0 ' Not used : 
; 0360 05; ! Not used ‘ 
3 $03 0361 . 
; 366 B06 C1 TO 16]: ! Entity name . 
; 67 036 NML_ZEROPLURAL (.ENTITY, ! Entity code 6 
3 368 0354 > N ! Zero routine ; 
; 369 0365 “NML$GB_ENTITY_FORMAT,! Id string Length : 
: 20 0366 NMLSAB_ENTITY_ID); ! Id string address : 
. oF 0368 COTHERWISE): ; 
; 37 0369 NMLSERROR_2 (NMASC_STS_IDE, .NMLSGB_ENTITY_CODE); ! Option error ; 
: 374 0370 TES; ; 
: 375 0371 F 
; 376 0372 1 END; ! End of NML_CALL_ZERO : 
Save pecking : 0330 : 
50 000000006 98 98 O008 CVTBL NMLS$GB_ENTITY_FORMAT, RO : 0354 3 
8F 0 91 . CMPB RO, #-T : 0556 3 
Oe 12 D BNEQ 1 3 3 
‘ 7¢ F CLRQ -(SP) 3 @ ef : 
11.°«11 11 BRB ee ; 0358 3 
50 D5 13 1$: TSTL RO : 0362 $ 
| 


4 
SZERO NML ZERO counters module tbs Sep 4 VAX-11 s-32 V 4 

Yoe860 NML_CALL_ZERO Zero volatile entity parameters 14-Sep- 71382 99: 39; 3 DISK$V nen TER: cum” she NMLZERO.B32; ? oe vos 

13 0001 BEQ 3$ ; : 

we ee | ph, Be : 2 

000000006 99 9 1 PUSHAB NMLSAB_ENTITY_ID ; 0363 : 

D PUSHL RO : 0365 | : 

ze 046 AC 7D 4 2$: mMOVa —s ENTITY ; 0363 : 

00000000V 0 04 fe , capes #4, NML _JEROPLURAL : ° 

rf 000000006 8 aA 9 3$: MOVZBL NL $68 ENTITY_CODE, -(SP) ; 0369 : 

000000006 66 2 FB O003A CALLS #2, NMLSERROR_2 : ; 

04 00041 RET : 0372 é 

; Routine Size: 66 bytes, Routine Base: S$CODES + O04F ; 


4 
NALSZERO NAL ZERO counters module 18-Sep-1984 OO :eh: 16 VAX-11 Bliss-32 ye rare Page 15. 
NML_CALL_ZERO_NODE Zero node counters 14-Sep-1984 :50:2 DISKSVMSMASTER: CNML.SRCJNMLZERO.B32;1 #e 
3s 37 73. 1 ZSBTTL "NML_CALL_ZERO_NODE Zero node counters’ 
: 37 fs } ROUTINE NALICALLZERO_NODE (ENTITY, ZERO_RTN) : NOVALUE = | 
; a 76 1 {44 | 
; a 4 } FUNCTIONAL DESCRIPTION: 
: 79 1: This routine dispatches to a routine to zero the specified set 
3 2 » ! } of node counters based on the entity id format. 
: 387 ¢ i FORMAL INPUTS: 
; 388 1! NTITY Internal NML entity code of entity to zero. 
; 389 1! ZERO_RTN Address of routine to perform zero requested 
3 re 5 : by NICE message. 
: 39 6887 | i IMPLICIT INPUTS: 
; 39 0388 1! 
3 Be 8 3 : NMLSGB_ENTITY_FORMAT contains the entity format code. 
. ee oo 
; 398 0398 2 BEGIN 
BBE Saw 
> 401 0396 NMLSGB_ENTITY_FORMAT : BYTE SIGNED; 
: to $398 LOCAL 
; 40% 0599 EXEC_ADR; 
; 406 0401 EXEC_ADR = 0; ! Set exec address in case entity is NMLSC_EXECUTOR. 
; £07 0408 SELECTONEU -NML$GB_ENTITY_FORMAT OF 
: 409 0404 NMASC_ENT_KNO): ! Known 
: 410 0405 NMC_ZEROPLURAL (.ENTITY, ! No entity 
; 411 0406 NML_ZEROKNONODES, ' Routine name 
; tig 0407 § 0 ! Not used 
i 413 0408 3 05; i Not used 
; 415 0410 CNMASC AENT_ADDI: ! Node address 
> 417 O412 IF ENTITY EQL NMLSC_EXECUTOR THEN 
: 418 041 NML_ZEROPLURAL (AMLS$C_EXECUTOR, ! entity = executor node 
: 419 0414 NML_ZERO_NODE, ' Routine name 
; $20 0415 P ! Id string length 
3 : 1 bei8 ese EXEC_ADR) ! Executor node address 
: 4 : 0418 NML_ZEROPLURAL (NMLSC_NODE ' Entity code 
> 426 041 NML_ZERO_NODE, i Routine address 
3; 425 420 P ! Id string Length 
: 426 421 NMLSAB_ENTITY_I1D); ! Id (node address) address 
BB — 
: 429 ou {1 TO 6): ! Node name 
; 430 5 IF .NMLSGL_NML_ENTITY EQL NMLSC_EXECUTOR THEN 
; $3) 4 § NML_ZEROPLORAL (NMLSC_EXECUTOR, ! No entity 
; 4 § oe NML_ZERO_NODE, ' Routine address 
; 43 428 P ! Id string length 
; 434 0429 EXEC_ADR) ! Executor node address 


K 4 
unters module 16-Sep-1 


NMLSZERO NML ZERO co 4 00:41: VAX-11 Bliss-32 V4.0-74 Page 16 
v04- NML_CALL_ZERO_NODE Zero node counters 1 ~$007 1382 99:34:38 DLSKSVMGMASTERSCNML  SRCINMLZERO.B32:1 ° (6) 
; 435 4 ELSE 

3 4 4 NML_ZEROPLURAL (NMLSC_NODEBYNAME,  ! Entity code 

3; 4 4 NML gERO NODE, ' Routine address 

: 4 4 wat GB_ENTITY_FORMAT, ! Id (node name) Length 

3 tz ? 3 NMLSAB_ENTITY_TD); ! Id address 

; 441 4 $ COTHERWISE): 

: 44 4 NMLSERROR_2 (NMASC_STS_IDE, NMASC_ENT_NOD); ! Option error 

> 44 8s 8 TES; 

; 446 439 

; 445 0440 1 END; ! End of NML_CALL_ZERO_NODE 


001C 00000 NML_CALL_ZERO_NODE: 
» WORD 


Save R2,R3,R4 3; 0374 ; 

54 000000006 00 9€ 00002 MOVAB NMLS$AB_ENTITY_ID, R4 : ; 
53 00000000v 00 9€ 00009 MOVAB NML_ZERO_NODE> R3 : : 
7E 04 00010 CLRL = EXE + 0401 ; 

52 000000006 98 98 BOOS CVTBL NMLS$GB_ENTITY_FORMAT, R2 : 0402 3 
FF OF 52 91 0001 CMPB aR, #-T + 0404 : 
op 12 0001D BNEQ : ; 

E 7C OOO1F CLRQ = (SP) + 0405 ; 

00000000v 00 9F 00021 PUSHAB NML_ZEROKNONODES : 3 

04 AC DD 00027 PUSHL ENTITY : ; 

32 11 OOO2A BRB : ; 

52 05 0002C 18: TSTL 2 + 0410 F 

1A 12 0002€ BNEG 4$ : ; 

07 04 AC D1 00030 CMPL ENTITY, #7 + 0412 ; 
0A 12 000 BNEQ $ : ; 

5E DD 00036 2$: PUSHL  5P + 0413 ; 

0¢ DD 0003 PUSHL # : ; 

53 DD O003A PUSHL R : ; 

07 DD 0003c PUSHL #7 : : 

1E 11 0003€ BRB 5$ : ; 

54 DD 00040 3s: PUSHL R4 : 0418 : 

9 DD 00042 PUSHL @# : : 

DD 00044 PUSHL R : : 

03 DD 90046 PUSHL #3 ; : 

14 11 0004 BRB 5$ F 3 

06 32 91 O004A 4$: CMPB eR, #6 > 0424 : 
17 1A 00040 BGTRU : : 

07 000000006 00 01 0004F CMPL § NMLSGL_NML_ENTITY, #7 > 0425 : 
DE 13 00056 BEQL ; : 

14 BB 00058 PUSHR #*M<R2,R4> 3: 0433 3 

53 OD OA PUSHL 3 > 0431 : 

04 DD 0005¢ PUSHL #4 : : 

00000000v 00 4 FB 3 5$: CALLS #4, NML_ZEROPLURAL : : 
04 0006 RET : 0425 : 

7 D4 66 6$: CLRL = > 04 : 

000000006 60 2 FB CALLS #2; NALSERROR_2 ; 
04 u RET rg > 0440 : 


3; Routine Size: 115 bytes, Routine Base: S$CODE$ + 0091 


vee i NAL. ALL ERO NODE” re node counters ise 38-1382 99: 3); 38 Bie KSVNGH nen AS TERS chnc” SRCINMLZERO. B32; re (bs 


«PSECT S$PLITS,NOWRT,NOEXE ,2 
00000002 00000000 O004C P.AAS: .LONG 0, 2 


Mm 4 
0 NML ZERO counters module 1$=$ep= es 99: $h: ig VAX-11 Bliss-32 V4.0-74 
NML_ZEROPLURAL Zero plural entity counters 14-Sep- 35 DISKSVMSMASTER: . 
: 447 441 1 ZSBTTL_"NML_ZEROPLURAL Zero plural entity counte 
; tt8 res ! ROUTINE NML-ZEROPLURAL (ENTITY, RIN, PRAT. PRM2) CS NOVALUE = 
; 450 444 1 44 
> 451 445 1 ! FUNCTIONAL DESCRIPTION: 
3 4 § ork} 7 2 
; 4 447 1! This routine frames the response messages with ‘more’ and 
: tee rk : } “done’ messages and calls the specified routine. 
: 456 0450 1 ! FORMAL PARAMETERS: 
; 457 0451 1! 
; 458 paeg 4 ENTITY Entity Table index for the entity (NMLSC_... 
; 459 455 1! RTN Address of entity routine to be called. 
; 460 0454 1! PRM1 Routine parameter value. 
; 461 0455 1! PRM2 Routine parameter value. 
; re | 0456 1! 
: 46 0457 1 ! SIDE EFFECTS: 
> 464 0458 1! 
; 465 0459 1! A ‘more’ message is sent and then a ‘done’ message is signalled 
: 466 0460 1! following a return or signal from the specified routine. 
; 467 0461 1! 
: 468 0462 1 !-- 
; 469 04635 1 
> 470 0464 BEGIN 
3; 471 0465 
; 47 0466 LOCAL 
3; 47 0467 2 MSG_SIZE; 
: 474 0468 § 
> 475 0469 } 
; rth | Be59 § Send success with multiple responses message. 
; 478 0472 2 NMLSBLD_REPLY (UPLIT(O, NMASC_STS MOR), MSG_ SIZE); ! Build message 
3 th oth ; WALSSEND (NMLSAB _SNDBUFFER, -ASG SIZE): ! Send it 
s 481 Bee § Enable condition handler to allow done message to be sent. 
° * H 
; 68 ob A § LIBSESTABLISH (NMLSMAINHANDLER) ; 
3; 485 ot 44 é Call entity-specific routine. 
3; 487 0481 $ (.RTN) (.ENTITY, .PRM1, .PRM2); 
; 488 048 ! 
; 489 048 ! Signal done message. 
: 490 peae i 
: 491 485 LIBSREVERT (); ! Disable condition handler 
3 re pee NMLSERROR_1 (NMASC_STS_DON); i Signal no more responses 
: 494 0488 1 END; ! End of NML_ZEROPLURAL 


wt? 


NML ZERO counters module 16-Sep- =1386 99: 241:1 VAX-11 Bliss-32 V4.0-7 ge 1 
NML_ZEROPLURAL Zero plural entity counters 14-Sep :50:2 DISKSVMSMASTER: CNML. SRC NMLZERO.832; ie (7 


PSECT S$CODES,NOWRT,2 


0000 00000 NML_ZEROPLURAL: 
«WORD Save nothing 


SE 04 1 000 SUBL2 a4, SP 
00000000' 09 9 P.AAS 
000000006 00 02 F CALLS #2, NMLSBLD_REPLY 
000000006 8 5 pySHiA NALSAB SNDBUF FER _ 
3 
000000006 02 F NMCSSEND 
000000006 6 9 WAC SMAINHANDLER 
000000006 00 ae: LIBSESTABLISH 
E Oc AC ? va = (SP) 0481 
04 Ns DD 0 PUSHL ey, 
08 BC 03 FBO CALLS #3, 
000000006 00 00 FBO CALLS #0 tTesRe vert 0485 
7E 80 8F 980 CVTBL #4 (SP) 0486 
000000006 00 01 FBO CALLS a1, NMLSERROR_1 
04 0 RET 0488 


; Routine Size: 78 bytes, Routine Base: S$CODE$S + 0104 


3; 495 


0489 1 
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O.KNOWN Zero known entity counters 4-Sep-19 4 99780:38 DLeKSVMGMASTERSCNML SRCINMLZERO.B32:1 . B 
ZSBTTL_ "NML_ZERO_KNOWN Zero known entity counters’ 

ROUTINE NML_ZERO_KNOWN (ENTITY, DUM1, DUM2) : NOVALUE = 


144 
! FUNCTIONAL DESCRIPTION: 


This routine clears the counters in the volatile data base entries 


4, 
4 ! 
4 ! 
be rf } for known entities of the type specified. 
oe ¢ FORMAL PARAMETERS: 
08 5 : ENTITY Index into Entity Table for entity (NMLSC_...) 
09 5 : DUM1 Not used. 
19 2 : DUM2 Not used. 
\§ : } SIDE EFFECTS: 
i? 2 Zero or more response messages will be sent. 
16 5 !o= 
17 5 
18 5 BEGIN 
19 5 
20 5 LOCAL 
21 5 BUFEND, 
$§ 5 DUMDSC : REF DESCRIPTOR, ! Dummy table descriptor 
2 5 ENTLEN, ! DNA Line name Length 
24 5 LENGTH, 
25 5 LISDSC : DESCRIPTOR, ' List buffer descriptor 
26 5 ENTPTR ! Pointer to entity id for response 
27 5 MSGSIZE, ! Response message size 
28 5 NFBDSC : REF DESCRIPTOR, Descriptor for NFB ; 
29 5 sc DESCRIPTOR, ! P2 buffer descriptor 
30 5 PTR 
31 5 STATUS 
32 5 STRTFLG; 
33 ; ! 


: Get a List of all entities in the volatile data base. 

STRTFLG = FALSE; 

WHILE NMLSGET_ENTITY_IDS (. ENTITY, NMASC_ENT_KNO, 0, .STRTFLG, LISDSC? DO 
STRTFLG = TRUE; 
Zero counters for every entity in the List. 


BUFEND = .LISDSC CDSCS$A_POINTER] + .LISDSC CDSCS$W_LENGTH); 
PTR = .LISDSC CDSCSA_POINTER); 


me -PTR LSSA .BUFEND DO 


LENGTH = .(.PTR)<0,16>; 
PTR = .PTR + 2; 


R 
R 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
| 
1 
1 
1 
1 
2 
; 
2 
2 
2 
4 
4 
é 
2 Get NFB and P2 buffer. 
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000000006 


NMLSGETINFTABS (.ENTITY NM $C ZERO, NFBDSC DUMDS¢ 0); 
NMLSBLDP2 (.LENGTH, PTR, -1, 0, NMLSQ_P2BFOSC, P2DSC); 


Initialize message flags and status. 


NMLSAB_MSGBLOCK [MSBS$L_FLAGS] = 0; 
NMLSAB_MSGBLOCK [MSBSB-CODE) = NMASC_STS_SUC; 


Zero the counters for the specified entity. 
NMLSNETQIO (.NFBDSC, P2DSC, 0, 0); 
: Move the entity ID into the entity buffer. 


CHSMOVE T.LENGTH : 
NMLSQ_ENTBFDSC COSCSW_CENGTH] = :LENGTH + 1; 


; Add Line id to response message. 


NML$AB_MSGBLOCK [MSBSV_ENTD FLD] = 1; 
NMLSAB"MSGBLOCK CMSBSALENTITY] = NMLSQ_ENTBFDSC; 


Build and send the response message. 


NMLS$BLD_REPLY (NML$AB_MSGBLOCK, MSGSIZE); 
NML$SEND (NMLSAB_SNDBOFFER, .MSGSIZE); 


4h = .PTR + .LENGTH; ! Advance pointer 


! End of NML_ZERO_KNOWN 


OFFC 00000 NML_ZERO_KNOWN: 
WORD 


58 000000006 00 2 9002 OVA Ni SAB MSGBLOCK, R 
59 04 9 0c CLRL = STRTFLG 
14 Ar F OOOOE 1$: PUSHAB LISDSC 
3 DD 00011 PUSHL STRTFLG 
E D4 901 CLRL. 9 =(S 
7E 01 CE C001 MNEGL #1 
04 aC DD 0001 PUSHL ENTIT 
00 9 FB 01 CALLS #5 
01 0 : 00 BLBS RO 
9 01 00 § 2s: OVvL #1, $ 
A 146 AE MOVZWL LISDS 
A 18 AE C D ADDL2 _ LISDS 
6 18 AE OD 1 OVL LISDS 
A 0035 : PTR, 


0-74 Page 1 
OSRCINMLZERO.B32:1°9" (BS 


Save R2,R3,R4,R5,R6,R7,R8,RI,R10,R11 


Y 
 NMLSGET_ENTITY_1DS 


eS — = — 


D5 | 
NMLSZERO NML ZERO counters module 16-Sep-1984 00:41:17 VAX=11 Bliss-32 V4.0-74 Page 22) NPI 
04- NML_ZERO_KNOWN Zero known entity counters 13-808 - 1 3b 90:30:38 I SKSVMGHASTERSENML  SRCSNMLZERO.B32:1 ’ BS | vo4 
4 1 00038 GEau 18 ; 
57 6 3¢ A MOVZWL (PTR)+, LENGTH : 9542 
—E 04 D CLRL = (SP) : 054 
04 AE OF f PUSHAB DUMDSC : 
C AE 9F 0004 PUSHAB NFBDSC : 
05 oD 0 4 PUSHL #5 : 
04 at DD 0004 PUSHL ENTITY : | 
000000006 00 0S FB D064 CALLS #5, NMLSGETINFTABS : 
0c AE 9F 00051 PUSHAB : 0548 | 
00000000" 00 9F 00054 PUSHAB NML$Q_P2BFDSC : 
7E D4 0005A CLRL 3s = (SP) : 
7E gi CE O09¢ MNEGL #1, =(SP) : 
$ DD F PUSHL PTR : 
57 DD 00061 PUSHL LENGTH : 
000000006 60 06 FB 00063 CALLS #6, NMLSBLDP2 : 
6B 04 O006A CLRL § NMLS$AB_MSGBLOCK ; 0552 
06 AB 1 90 9006 MOVB #1, NMCSAB_MSGBLOCK+4 : 055 
E 7C 000 CLRQ 0 = ( §P) : 0557 
14 AE 9F 0007 PUSHAB P2DSC ; 
10 AE DD 0007 PUSHL NFBDSC : 
000000006 00 04 FB 00078 CALLS #4, NMLSNETQIO : 
58 00000000' 09 D0 0007F MOVL §§NML$Q_ENTBFDSC+4, ENTPTR + 0561 
88 5? 90 00086 LENGTA, (ENTPTR)+ : 0962 
68 = 57 28 00089 MOVC3 LENGTH, (PTR), (ENTPTR) : 056 
00000000" 00 57 01 Ail 00080 ADDW3 #1, LENGTH, NML$Q_ENTBFDSC : 0564 
6B 10 88 00095 BISB2 #16, NMLSAB_MSGBLOCK : 0568 
14 AB 00000000' 00 9E 00098 MOVAB  NML$Q_ENTBFDSC, NMLSAB_MSGBLOCK+20 : 0569 
08 AE 9F 000A0 PUSHAB MSGSIZE : 0573 
5B DD O000A3 PUSHL R : 
000000006 00 02 FB 000A5 CALLS #2, NMLSBLD_REPLY : 
08 AE DD OOOAC PUSHL  MSGSI + 0574 
000000006 00 9F OOOAF PUSKAB NMLSAB_SNDBUFFER : 
000000006 00 0¢ FB 000B5 CALLS #2, NMCSSEND ; 
56 5 £0 000B8C ADDL2 LENGTH, PTR : 0576 
FF73 31 OOOBF BRW $ : 0540 
04 000C2 RE : 0580 
; Routine Size: 195 bytes, Routine Base: $CODE$S + 0152 
| 


= 


— 
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$ZERO NML ZERO counters module 1b-s¢ =1984 00:461:1 VAX-11 Bliss-32 V4.0-74 Page 23 NPA 
yOL. 860 NAL _TEROKNONODES Zero known node counters 1 730071382 99730:38 DLSKSVMSMASTERSENML SRCINMLZERO.B32;1 ” 5 v04 
; 88 1 1 SSBTTL a tenements Zero known node counters’ 
: a § : ROUTINE NML_ZEROKNONODES (DUMO, DUM1, DUM2) : NOVALUE = 
: §9 1 !e4 
s 38 é 5 : } FUNCTIONAL DESCRIPTION: 
; 595 2 ? : } This routine zeros counters for all nodes in the volatile data base. 
3 3 589 1 ! FORMAL PARAMETERS: 
; 598 590 1! 
; 599 591 1! DUMO Not used. 
; 600 23¢ 1! DUM! Not used. 
; 601 93 1! DUM2 Not used. 
s oo¢ 0594 1! 
; 60 B2g2 1 ! SIDE EFFECTS: 
; 604 238 1! 
; 605 0597 1! Zero or more response moppeges will be sent as a result of 
3 ope 0598 1! the routines that are called. 
; 60 0599 1! 
: 608 0600 1 !-- 
; 609 0601 1 
: 610 060 BEGIN 
; 611 060 
3 ol¢ 0604 LOCAL 
; 61 0605 EXEC_ADR: WORD; 
3 6146 0606 : 
; 615 0607 ! Return executor node. 
; 616 0608 ! 
; 617 0609 EXEC_ADR = 0; 
; 618 0610 2 NML_ZERO_NODE (NMLSC_EXECUTOR, 
; 619 0611 ° ! Id string length 
; $30 +d EXEC_ADR); ! Executor node address 
3 ose 061 ' Return remote nodes. 
3 62 0615 ! 
: 624 0616 NML_ZEROREMOTES (); 
3 6¢) 0617 
; 626 0618 1 END; ! End of NML_ZEROKNONODES 


0000 00000 FERC OE 


0 Save nothing ; 0582 
5E 04 C2 0000 SUBL2 SP 3 
- E B4 0000 CLRW = EXEC_ADR : 0609 
E odd 0000 PUSHL SP ; 0610 
- ¢ DD 00009 PUSHL as 3 
DD 0008 PUSHL # 3 
00000000vV 00 3 FB 0000D CALLS #3, NML_ZERO_NODE 3 
00000000v 00 0 FB 00014 CALLS #0, NML_ZEROREMOTES 3 0616 
04 00018 RET ; 0618 


; Routine Size: 28 bytes, Routine Base: S$CODE$ + 0215 


~~ 
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— Fe 


oo 


PAEAPEAEAAAAAAO 
DONOULS WN 
PAPA 


VirWN—oO 


OOCOCCOCOCSOOOOOOOOOOOOCoOoOO 
ARO ODNOAOU EWN OO OONOU SW "O0 


333335353 


o 
a 


3 


oo 
WN —OOONOA UE WN " O OONOU Sw 


ao 


FP PANARDARAARARER REE RRR 
SS 


WN —O DONO ULWN—"OVDOONO 


SEELRLLERLNNS ETT 
sepsesserssesssescs 


wn 


fw —o 0 


FESTES 


=, 
counters module 1$~se0" 138% 09: 4h: he VAX-11 Bliss-32 V4.0-74 
ENTITY Zero entity counters 14-Sep-1984 12:50:2 
ZSBTTL "NML_ZERO_ENTITY fore entity counters’ 
ROUTINE NML_ZERO_LENTITY (ENTITY, LEN, ADR) : NOVALUE = 
' 
i FUNCTIONAL DESCRIPTION: 
i 
FORMAL PARAMETERS: 
: ENTITY Entity Table index (NMLSC_...) 
. LEN Length of entity id string. 
} ADR Address of entity id string. 
i SIDE EFFECTS: 
A response message will be sent. 
lee 
BEGIN 
LOCAL 
DUMDSC : REF DESCRIPTOR, ' Dummy table descriptor 
MSGSIZE, ! Length of response message 
NEWLEN, ! Mapped (VMS) Line name Length 
NFBDSC : REF DESCRIPTOR, ! NFB descriptor 
P2DSC : DESCRIPTOR; ! Descriptor for P2 buffer 


; Get NFB and P2 buffer. 
NMLSGETINF TABS (ENTITY, NMLSC_ZERO, NFBDSC, DUMDSC, 0); 


i X25 and X29 Server databases have only one entry. So always do a 
wildcard zero of these databases. 


if .ENTITY EQL NMLSC_X25_SERV OR 
“ENTITY EQL NML$C~X29-SERV THEN 


= -1; 
NMLSBLDP2 (.LEN, .ADR, -1, 0, NMLSQ_P2BFDSC, P2DSC); 
Initialize message flags and status. 


NMLSAB_MSGBLOCK FMSBSL FLAG J = 0; 
NMLSAB"MSGBLOCK CMSBSB_CODE) = NMASC_STS_SUC; 


Zero the counters for the specified Line. 
NML SNETQIO (.NFBDSC, P2DS¢, 0, 0); 
Build and send the response message. 


NMLSBLD_REPLY (NMLS$AB_MSGBLOCK, MSGSIZE); 
NMLSSEND (NMLSAB_SNDPOFFER, .MSGSIZE); 


END; ! End of NML_ZERO_ENTITY 


DISKSVMSMASTER:CNML.SRCJNMLZERO.B32; 


; Routine Size: 


123 bytes, 


000000006 


08 


000000006 


04 


000000006 


000000006 


000000006 


Routine 


ters module 
TITY Zero entity counters 


0004 


52 000000006 00 4 
5E 14 ¢ 
7E Be 
Se AE 9F 
C a oF 
05 oD 
04 ag dD 
00 05 FB 
11 04 ac 01 
06 13 
15 04 aC 01 
04 12 
AC 01 ge 
OC AE OF 
00000000" 00 SF 
7E D4 
7E 01 ce 
7E 08 ac 7D 
00 06 FB 
62 D4 
A2 01 90 
7E 7C 
14 AE OF 
10 AE OP 
00 04 F 
08 AE SF 
52 0D 
00 02 FB 
08 AE OD 
000000006 00 9F 
0 02 fe 


Base: SCODE$ + 0231 


00000 NML_ZERO. ENTITY: 


oO 

So 

Oo 
oO 
oO 
att 
2o< 
- 


WUAUUMPNoNnn 22 
Nm— 
wae 
uv 
Cc 
a 
5 


SOOCSCSCSCOOCOOCOSCOOOCOOoOoOoOoOooOo 


WISIN & ££ 


ea 


FPWOS FWSM NE MD OPM DOWN FO LOO S 
o 
> 
c-< 
ro 
nw 


NSNOAOO 


SOoOoOSCoOOCOOOSCOOOOSOSOSOOOSOOOOOOOOOOOoOO 


SOoOoOOSOSSOOOSOSOSOSOSOSOSOOOOSOOOSOOSOOSSS 


ooooo 


Save R2 
a7 MSGBLOCK, R2 
SP 


£ 
#5, NMLSGETINE TABS 
NTITY, #17 


ENTITY, #21 
#1, LEN 

P2bSC 

NML $0_P2BFDSC 


eae 
NAL SAB MSGB LOC 
*(50) NMC SAB onSGBLOCK +4 


P2D 


NEBDSC 
yy NMLSNETQIO 
6S1ZE 


NMLSBLD_REPLY 


NML$AB_SNDBUFFER 
#2, NMCSSEND 


VAX-11 Bliss-32 V4.0-7 
DISKSVMSMASTER: CNML. sre NMLZERO.B32;1 


poe 


Pete Se Se Se Be Se Se Se Be Se Be Se Be Be Be Se Se Be Be Se Be Se Se Se Se Se Ke Se Se Se Se Se 


| 
0620 


0649 


0654 
0655 
0656 


; 0658 


066 
: O86? | 


0671 


0672 


0674 


H 5 
SZERO NML ZERO counters module 16-Sep-1984 00:41:1 VAX-11 Bliss-32_ V4.0-74 e NP/ 
you~ 000 NML_ZERO_NODE Zero node counters 12786871382 99:84:38 DLSKSVMSMASTERSENML SRCSNMLZERO.B32:1° 7 (195 v0« 
; 5 7 SBTTL *NML_ZERO_NODE Zero node counters’ 
ROUTINE NML_ZERO_NODE (ENTITY, LEN, ADR) : NOVALUE = 


ao 
aa~Ns 


DWONA UE WN OOOnou 


'e4 
FUNCTIONAL DESCRIPTION: 


FORMAL PARAMETERS: 
ENTITY Entity Table index (NML$C...) 
LEN Length of yd id string. 
ADR Address of entity id string. 


SIDE EFFECTS: 


3 


A response message will be sent. 


NFBDSC : REF DESCRIPTOR, i NFB descriptor 
P2DSC : DESCRIPTOR ! P2 parameter descrigptor 
DUMDSC : REF DESCRIPTOR; ! Dummy table descriptor 

! 

Get the NFB and P2 buffer. 


NMLSGETINFTABS (.ENTITY, NML$C_ZERO, NFBDSC, DUMDSC, 0); 
IF ENTITY NEQ NMLSC_NODEBYNAME THEN 


Zero executor node or node specified by address in the NICE command. 


ev sent Set oP2 (0, .(.ADR)<0,16>, -1, 0, NML$Q_P2BFDSC, P2DSC) 
1 


Zero node specified by name in the NICE command. 
NMLSBLDP2 (.LEN, .ADR, -1, 0, NMLSQ_P2BFDSC, P2DSC); 


oO 
~ 
oooo 
Mw 


SSNS 
ee ee ee ee: 
SCOMBNOULWNRO 


.] 
: Initialize message flags and status. 


NML$AB_MSGBLOCK [MSBSL_FLAGS) = 0; 
NMLSAB_MSGBLOCK CMSBSB_CODE) = NMASC_STS_SUC; 


Zero the counters for the specified node. 
NML$NETQIO (.NFBDSC, P2DSC, 0. 0); 


i af zeroing the executor node's counters, then the excutor's entity ID 
: must be returned in the NICE response message. Add it to the message. 


IF ENTITY EQL NMLSC_EXECUTOR THEN 
BEGIN 


SN NNN NSIS SSS 
ed ed ed td td od = OOO 


rorofnonyd 


=—OOONO UNE WN "OVOONOULS WN O0OOn 


SN NNN 


Wrononononony 


; 1 

eo 1 

; 1 

3 1 

3 1 

6 1 

: 1 

. 1 

o 1 

3 1 

6 1 

. 1 

3 1 

3 1 

. 1 

. 1 

3 1 

oO 1 

eo 1 

; BEGIN 
3 Te? 0695 

; 706 984 LOCAL 
; 707 069 MSGSIZE ' Response message size 


~“ 
rm 
SOOSSOCOOSSOOOCOOOOCOCOOOOOOOOooooOOo 


5 
NML ZERO counters module ibs =1984 00:41:1 VA NP/ 
1er8een18ke 93:80:08 Ot 


32 V 
NML_ZERO_NODE Zero node counters R 


Liss- 4.0-74 P 
MASTE a CMM, SRCINMLZERO.B32: 109° (11 


| 
; 74 7 ¢ ! | 
: ot? f | Add the executor id to the entity buffer. | 
; 245 739 NMLSGETEXEID (NMLSQ_ENTBFDSC, NMLSO_ENTBFDSC (DSCSW_LENGTHI); | 
3 re , . Add the entity id to the message. | 
: 749 35 NMLSAB_MSGBLOCK [MSBS$V_ENTD FLD] = 1 
; t 9 740 NAL SAB_ASGBLOCK MSBSA_ENTITY] = NML$Q_ENTBFDSC; 
my. 74 : 
: § O78 : Build and send the response message. 
: 755 0745 NMLSBLD_REPLY (NMLSAB_MSGBLOCK, MSGSIZE); 
; , $ 0746 NMLSSEND (NMLSAB_SNDBOFFER, .MSGSIZE); 
: 758 0748 1 END; ! End of NML_ZERO_NODE 


001C C0000 NML_ZERO_NODE: 
» WORD 


Save R2,R3,R4 3; 0676 
54 00000000° 00 9E 90002 MOVAB NML$Q_P2BFOSC, R4 : 
53 00000000° 9£ 999 MOVAB NMLSQ-ENTBFDSC, R3 ; 
52 000000006 00 i 0019 MOV NM SAB MSGBLOCK, R2 : 
5E 14 C2 0001 SUBL2 #20, SP : 
7E D4 001A CLRL ss = (SP) : 0705 
04 AE 9F O00IC PUSHAB DUMDSC : 
OC AE 9F OO0TF PUSHAB NFBDSC ; 
05 DD 00022 PUSHL : 
04 AC DD 00024 PUSHL ENTITY : 
000000006 00 05 FB 00027 CALLS #5, NMLSGETINFTABS : 
04 06 AC 01 000 6 CMPL =e ENTITY, #4 : 0706 
1 13 000 BEQL 1 3 
OC AE 9F 000 PUSHAB P2DSC : 0710 
4 0D 00037 PUSHL 4 F 
E D4 00039 CLRL. = : 
7E 01 ce 99 EGL #1, -(SP) ; 
7E 0c C C 0 3 MOVZWL @ADR, -(SP) ; 
E D4 9004 CLRL = = (SPJ ; 
OE 11 00044 BRB 2$ F 
OC AE OF 46 1$ PUSHAB PeDsc : 0715 
4 dD 0004 PUSHL R ; 
E D4 00048 CLRL. = = (SP) ; 
7E 01 ce 940 MNEGL #1, -(SP) : 
7E 08 AC 7D 99 MOVQ. LEN, -(SP) : 
000000006 00 06 FB 4 2%: CALLS #6, NMLSBLDP2 ; 
4 B CLRL § NMLSAB_MSGBLOCK : 0720 
04 A2 0 MOVE #1, NMCSAB_MSGBLOCK+4 : 0721 
: CLRO0 = ( §P) : 0725 
16 AE 9F 0006 SHAB P2DSC ; 
10 AE ODD PUSHL : 
000000006 00 0 FB ALLS NMLSNETQIO ; 
04 ; » e 3 


Oo 
~~ 
| Ww 
oO 


doseort9gs Q0:4h:12 YARCHY eLise=52 Mei 0=743 oe 


NAL FERO counters module 1 
1 
7 PUSHL R 
ors PUSHL ° 


RO_NODE Zero node counters 


DD 
DD 
000000006 0 ; re CALL NMLSGETEXEID 
6 10 8 81 B1SB 416 NML$AB_MSGBLOCK 
14 =A 63 9E 000 NL $0, ENTBFBSC, NMLS$AB_MSGBLOCK+20 
08 AE 9F 00088 3S: PUSHAB MSG 76 
; DD 000 PUSHL R 
000000006 00 FB CALLS ght SBLD_ REPLY 
08 A pp PUSHL SGsiZE 
000000006 0 F 00097 PUSHAB NAL AB_SNDBUFFER 
000000006 00 FB % CALLS #2, NMCSSEND 


; Routine Size: 165 bytes, Routine Base: S$CODES + O2AC 


29° 15 


- >| 


K § 
$ZERO NML ZERO counters module 16-Sep-1984 00:41: VAX-11 Bliss-32 V4.0-74 Page 29. NP/ 
ara tt NAL _ZEROREMOTES Zero known node counters 12-808-1 38 90:34:58 DI SKSVMGHASTERCCNML SRCINMLZERO.832:1 . a3 vO 
; 760 749 1 XSBTTL "Ma -EROREROTES Zero known node counters’ 
: fl ! ROUTINE NML_ZEROREMOTES: NOVALUE = 
; 8 7 ; 1 !4¢ 
; ree f Z : FUNCTIONAL DESCRIPTION: 
: i f 5 : This routine zeros the counters for all remote nodes. 
; 768 g : i SIDE EFFECTS: 
: 770 7 § 1! Zero or more response messages will be sent. 
3; 771 760 1! 
: 77 761 1 t= 
» Fe 166 1 
3 776 76 BEGIN 
3; 775 764 
: 77 765 LOC 
s 7 8788 BUFEND, 
; 778 76 SC : REF DESCRIPTOR, ! Dummy table descriptor 
: 779 0768 ENTPTR, ! Pointer to node id in response 
; 780 9768 H, 
3 ri Bre LISDSC : DESCRIPTOR, 
; 78 ore NFBDSC : REF DESCRIPTOR, ' NFB descriptor 
; 784 077 P2DSC : DESCRIPTOR, ! Descriptor for P2 buffer 
: «4785 0774 
: 786 0775 STATUS 
: 787 0776 STRTFLG; 
; 788 377 ! 
3; 789 778 ! Get the List of known remote nodes. 
; 790 0779 ! 
$ a4 344 STRTFLG = FALSE; 
: 735 078¢ WHILE NMLSGET_ENTITY_IDS (NMLSC_NODE, NMASC_ENT_KNO, 0, .STRTFLG, LISDSC) DO 
; 796 078 BEGIN 
: 795 0784 
: 796 34 STRTFLG = TRUE; 
3; 797 7e6 ! 
3 a 4444 Zero counters for all nodes in the List. 
: 800 0789 PTR = .LISDSC CDSCSA_POINTER); 
3 23) a ht = ,LISDSC DSCSA_POINTER) + .LISDSC COSCS$W_LENGTH]; 
3 = 2; 
3 508 186 NMLSGETINF TABS (NMLSC_NODE, NMLSC_ZERO, NFBDSC, DUMDSC, 0); 
; 50S 79% WHILE .PTR LSSA .BUFEND DO 
3 508 795 4 BEGIN 
; 80 as 4 PTR = .PTR +4; ' Skip loopnode flag. 
; 4 ia 2 NMLSBLDP2 (0, .(.PTR)<0,16>, -1, 0, NMLSQ_P2BFDSC, P2DSC); 
: 810 799 & NMLSAB_MSGBLOCK [MSBSL_FLAGS) = 0; 
3 i 4 NMLSAB-MSGBLOCK CMSBSB-CODE) = NMASC_STS_SUC; 
; 1§ § 2 NMLSNETQIO (.NFBDSC, P2DSC, 0, 0); 
; 15 4 i Move node address and name into entity id buffer and 
: 16 5 4 ! advance pointer. 


5 
NALSZERO NML ZERO counters module 1b-se =1984 00:41: VAX-11 Bliss-32 V4.0-74 Page 30 NP 
yO%~ 000 NAL _ZEROREROTES Zero known node counters 1 300-1382 99780:58 DLSKSVMEHAS TERS CNMI SRCINMLZERO.B32:1 «135 vo 
: M4 ¢ ENTPTR CHSMOVE (2 
3 = Vv 
; i8 3 4 PT 
; 820 09 4 “NML$Q_ENTBFOSC COSCSA_POINTER]); 
; 1 10 4 PTR = .PTR . 
; é 11 4 LENGTH = .(.PTR)<G,16>; 
: ig 4 CHSWCHAR_A (.LENGTH, ENTPTR); 
: B24 13 4 PTR = .PTR + 0; 
: 8 5 14 4 ENTPTR = CHSMOVE (.LENGTH, .PTR, .ENTPTR); 
: 8 $ 15 4 PTR = .PTR + LENGTH; 
: ; 3 7 ? Add node id to message. 
; & 0 i8 4 NMLSQ_ENTBFDSC CDSCS$W_LENGTH) = 
: 1 0 4 .ENTPTR = .NMCSO ENTBF DSC CDSCS$A_POINTER]; 
3 : ¢ 3s ; NMLSAB_MSGBLOCK CMSBSV_ERTD_FLD) = 1; 
. ' 
: te o8 ? ? Build and send the response message. 
: 836 0825 4 NMLSBLD_REPLY (NMLSAB_MSGBLOCK, MSGSIZE); 
; 837 08 $ 4 NMLSSEND (NMLSAB_SNDBOFFER, .MSGSIZE); 
: 838 0827 4 END 
io Be pe 
; : ! End o re 
841 0830 71 END ! End of NML_ZEROREMOTES 
OFFC 00000 NML_ZEROREMOTES: 
58 000000006 00 9 99002 MOV NM SAB MSGBLOCK, R11 : 
5E 1¢ Ce 00 SUBL2 #28, SP : 
59 04 0000C CLRL —s STRTFLG : 0780 
14 AE 9F OOOOE 1S: PUSHAB LISDSC : 0782 
3 DD 00011 PUSHL  STRTFLG ; 
E D4 00013 CLRL. =(SP) ; 
7E 01 CE 0001 EGL #1, -(SP) : 
03 DD 00018 PUSHL @# : 
000000006 00 05 FB OO1A CALLS #5, NMLSGET_ENTITY_IDS ; 
01 0 F 0021 BLBS RO. 2$ ; 
4 00024 RET : 
59 01 09 99 H 2s: MOVL #1, STRTIFLG : 0785 
6 18 AE p MOVL  LI§DSC+4, PTR : 0789 
5A 14 AE 3C MOVZWL LISDSC, BUFEND : 0790 
SA 18 AE co ADDL2 LISDSC+4 BUF END ; 
58 9 D VL LENGTH : 0791 
E 04 7 CLRL = = ( §P) : 0792 
06 AE OF 9 PUSHAB DUMDSC ; 
OC AE OF C PUSHAB NFBDSC ; 
DD F PUSHL # : 
DD 4} PUSHL # F 
000000006 90 FB 4 CALLS #5, NMLSGETINFTABS ; 
A ; p aA 3$: CHP PIR, BUF END : 0794 
56 4 i 4F yt: #4, PTR : 0796 


NAL 
Vv04 


; Routine Size: 


rs module 


Zero known node counters 


00000006" He F 


000000006 


04 


000000006 


000000006 


000000006 


Routine 


7E 
7E 
00 
AB 
14 
10 
00 
er 00000000' 
3 02 
56 
58 
83 
98 
28 
68 
08 
00 
08 
000000006 
00 
Base: 


AE 


> 
m 


ooo 


WOOP OUP —“VIMIVIMIWO 
MNMOMNMAMONOWOWOrVunaos 


SCODES + 0351 


SOOoOOooooooooooooooooooooooooooooe 


FD NODS *®WWOWONMOMOODWI *®NOLDLOMS 
So 


Oo "OS MS OOP OM OWE ODF "SO OVNOT "9OWOO 


Soseoct9Be 00:48:12 yA 


X-11 
SKSV neh 


PUSHAB P2DsC 
PUSHAB na $0_P2BFDSC 


s-32 V4.0- 
TER: CNM. 


L 
6L ) 

MOVZWL ie -(SP) 
RLS 

CALLS #6, NMLS$BLDP2 

CLAL NMC SABC MSGBLOCK 

MOVB #1, NMCSAB_MSGBLOCK+4 

CLRO risen 

PUSHAB P2 

PUSHL 


NFBDSC 
CALLS #4, NMLSNET 


Q10 
MOVL NMLSQ_ENTBFDSC+4, R7 
TR)F, (R7) 


HOVA eR” ENTPTR 

ADDL #2, PT 

MOVZWL (PTR)+, LEN GTH 

MOVB LENGTH, CENT 

MOVC3 LENGTH, (BTR) | RtENTPTR) 
ADDL . NGTH 

SUBW ENTPTR NM $0 ENTBF DSC 
BISB2 +16 NMLSAB_M 

PUSHAB ase SS17E 

PUSHL 


R 
CALLS eee NMLSBLD_REPLY 


PUSHAB NML$AB_SNDBUFFER 
CALLS ce. wn NMC$SEND 


SRCINMLZERO.B32;10 9° (13) 
0797 


MOM SO 


NP/ 


; Size: 1050 code + 868 data bytes 
i 00:23.1 


3; Elapsed Time: OD: 42. 

; Lines/CPU Min igs" 
; Lexenes/CPU-Hin: 1571 

3 emery Used: 147 pages 
6 a 


; Compilation Complete 


N 5 
NML ZERO gounters module 16-Sep-1984 99:4) a VAX-11 Bliss-32 V 
NML_ZEROREMOTES Zero known node counters 14-Sep 5- 1984 750: DISKSVMSMASTER: cM” she NMLZERO.B32; f 
> 843 0831 1 END ! End of module 
> 844 pee 1 
; 845 0838 0 ELUDOM 
; PSECT SUMMARY 
: Name Bytes Attributes 
: SOWNS 784 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON.NOPIC,ALIGN(2) 
; SPLITS 84 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SCODES 1050 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; Library Statistics 
pi oe a ee = Syabels oooceon> Pages Processing 
3 File Total Loaded Percent Mapped Time 
: _$255$DUA28:(NML.OBJINMLLIB. “3351 341 33 9 27 00:00.1 
; 7$255$DUA28:CSHRLIBIJNMALIBRY.L32;1 887 8 0 47 00:00.2 
; 7$255$DUA28:CSYSLIBJSTARLET.L32; 1 9776 2 0 581 00:02.2 
: COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LIS$:NMLZERO/OBJ=OBJ$:NMLZERO MSRC$:NMLZERO/UPDATE=(ENHS$:NMLZERO) 


0 8 


NP) 


T CORPORATION 
PROPRIETARY 


0288 Fe. Sune seo 


